﻿Public Class HighScore

    Dim xHighestScore() As String

    Private Sub HighScore_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Set semi transparent bg
        LabelScore.BackColor = Color.FromArgb(200, Color.White)

        'Read from text HighestScore
        xHighestScore = Split(System.IO.File.ReadAllText("HighestScore.txt"))
        LabelScore.Text = xHighestScore(0)
    End Sub

    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        'Back to home
        Me.Hide()
        Dim x As New Home
        GameForm.Controls.Add(x)
    End Sub
End Class
